Attribute VB_Name = "DianNao"
Public Function YongHuMing() As String
YongHuMing = Replace(VBA.Environ("computername"), " ", "")
End Function
    
